Interação

library(tidyverse)
library(htmlwidgets)
theme_set(theme_bw())

respostas = read_csv(here::here("data/enade-ccc-2017.csv"),
                     col_types = "cccdccdddc")

pb_pe = respostas %>% 
    filter(UF %in% c("PB", "PE"))

As bibliotecas que usaremos vêm de http://www.htmlwidgets.org

Plotly

Veja também esse tutorial

ggplotly(p, tooltip = "label")

---

plot_ly(data = pb_pe %>% filter(categoria != "Outros"), 
        x = ~ categoria, 
        y = ~ media, 
        # name = "avaliacoes",
        type = "scatter",
        mode = "markers",
        color = ~UF, 
        text = ~IES)